home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / internet / net commander 1.0 / ISP / SCRPTLST / IBM.CMD < prev    next >
Encoding:
Text File  |  1996-02-19  |  2.3 KB  |  95 lines
  1. #This script should be renamed: login.cmd 
  2. #Set your IP address to: 1.1.1.1 
  3. #Set the Name Server to: 165.87.194.244 
  4. #Set the Domain Suffix to: ibm.net 
  5. #Select: Internal Slip 
  6. #Select: Hardware Handshake 
  7. #Select: DCD (RLSD) check 
  8. #Make sure your Slip Port and Baud Rate are entered correctly. 
  9. #If unsuccessfull in sending the & to the gateway try to enter the next command from a dos prompt before dialing : 
  10. #mode com1:baud=9600 data=7 stop=1 parity=even 
  11. #(replace 9600 and com1 with your configuration information) 
  12. #------------------------------------------------------------------------
  13. # trace on
  14. # echo on
  15. #
  16. # Fill in your userid, account and the gateway telephone number.
  17. #
  18. %attempts = 10
  19. $number       = ""
  20. $username     = "xxxx"
  21. $account       = "xxxx"
  22. #
  23. # Set modem to indicate DCD. Append your modem string to the end of the next 
  24. # output line if you can't get connected with just the at&c1, else phone the 
  25. # internet  helpdesk for a modemstring. The default string that you can use 
  26. # is : E0Q0S0=0V1X1&C1&D2
  27. #
  28. $modemsetup = "E0Q0S0=0V1X1&C1&D2"
  29. $prompt       = "=>"
  30. #
  31. # For every variable defined there is a if statement. To bypass one of questions 
  32. # insert #'s in front of the 3 statements.
  33. #
  34. if [query $number "Enter your dial up phone number"]
  35.   save $number
  36. end
  37. #
  38. if [query $account "Enter your IBM account account"]
  39.   save $account
  40. end
  41. #
  42. if [username "Enter your IBM login username"]
  43.   save $username
  44. end
  45. #
  46. if [password "Enter your IBM login password"]
  47.   save $password
  48. end
  49. #
  50. # initialize modem
  51. #
  52. set dtr off
  53. set rts off
  54. set rts on
  55. set dtr on
  56. output "atz"\13
  57. if ! [input 10 OK\n]
  58.   display "Modem is not responding"\n
  59.   abort
  60. end
  61. #
  62. # setup our modem commands
  63. #
  64. output "at"$modemsetup\13
  65. input 10 OK\n
  66. #
  67. # send phone number
  68. #
  69. %n = 0
  70. repeat
  71.   if %n = %attempts
  72.     display "Too many dial attempts"\n
  73.     abort
  74.   end
  75.   output "atdt"$number\13
  76.   %ok = [input 60 NECT]
  77.   %n = %n + 1
  78. until %ok
  79. input 10 \n
  80. #
  81. #  wait till it's safe to send because some modem's hang up
  82. #  if you transmit during the connection phase
  83. #
  84. wait 30 dcd
  85. output &
  86. input 30 $prompt
  87. output 1.1\n
  88. input 30 $prompt
  89. output INTERNET\n
  90. input 30 $prompt
  91. output $account $username $password\n
  92. address 30
  93. input 30 \n
  94. output -i\n
  95. input 30 ow